#Include "Protheus.ch"

User Function TstImpMerc()

Local oCabPdMerc := TCabPdMer():New()
Local oPagPdMerc := TPagPdMerc():New()

oCabPdMerc:SetFuncMsg("9  ")
oCabPdMerc:SetTipPed("001")
oCabPdMerc:SetPedComp("3026335             ")
oCabPdMerc:SetPedSist("3026335             ")
oCabPdMerc:SetDtHrEmi("08/04/2014 00:00")
oCabPdMerc:SetDtHrIni("11/04/2014 00:00")
oCabPdMerc:SetDtHrFin("11/04/2014 00:00")
oCabPdMerc:SetNumCont("               ")
oCabPdMerc:SetLstPrec("               ")
oCabPdMerc:SetEanForn("7896331100013")
oCabPdMerc:SetEanComp("7898905073143")
oCabPdMerc:SetEanCobr("7898905073143")
oCabPdMerc:SetEanEntr("7898905073143")
oCabPdMerc:SetCnpjFor("61365557000110")
oCabPdMerc:SetCnpjCom("50947761001871")
oCabPdMerc:SetCnpjCob("50947761001871")
oCabPdMerc:SetCnpjEnt("50947761001871")
oCabPdMerc:SetTpCdTra("   ")
oCabPdMerc:SetCodTran("00000000000000")
oCabPdMerc:SetNomTran("                              ")
oCabPdMerc:SetCondEnt("CIF")
oCabPdMerc:SetSecPed("000")
oCabPdMerc:SetObsPed("                                        ")

Alert("")

Return Nil